約 447,763 件
https://w.atwiki.jp/kaguoki/pages/4.html
いらっしゃいませー! GREEN APPLESでごゆっくりしていってください(*^_^*)
https://w.atwiki.jp/openj3/pages/326.html
なんかライブレニキの票数がやけに多いけど、どこで流行ったんや? それとも不正か? -- (名無しさん) 2017-11-07 16 27 28 3時間毎に欠かさず投票しとる人がおるっぽいな -- (名無しさん) 2017-11-07 18 06 09 監視しとったけど時間はバラバラやぞ -- (名無しさん) 2017-11-09 04 55 29 クッソ過疎だから1人の集中票でもすぐ目立っちゃうんだと思う。しょうがないね -- (管理人) 2017-11-09 12 57 47 ライブレ一強だったのがいつのまにか将軍と温泉卵の三つ巴になってて草 -- (名無しさん) 2017-11-13 08 49 00 稲田って去年やったっけ -- (名無しさん) 2017-11-16 06 27 10 好きなうまい棒一本くらい出してくれればいいのに -- (名無しさん) 2017-11-23 22 10 01 天上天下唯我独尊 -- (名無しさん) 2017-11-25 17 38 35 ドッスレがないやん -- (名無しさん) 2017-11-27 14 43 10 こんなんケツ穴フラッシュに決まってるやろ。どんだけスレ伸びてると思ってるんや -- (名無しさん) 2017-11-27 14 48 25 温泉卵は何が面白いのか -- (名無しさん) 2017-11-27 14 58 25 今更やがなんまめさんワイは〇〇ではノミネートされなんだんか -- (名無しさん) 2017-11-27 15 46 16 そういえば流行は今年からでしたね、ノミネートしました -- (編集) 2017-11-27 16 44 45 「おかしいのはおまえの打率だよ」 -- (名無しさん) 2017-11-30 13 00 50 おんJで生まれた言葉やからおか打は入らないんやで -- (名無しさん) 2017-12-01 08 45 25 フンラキーはどないした -- (名無しさん) 2017-12-01 09 28 24 天上天下唯我独尊天上天下唯我独尊天上天下唯我独尊・・・ んほほほほほほほほーーーー!!! 尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師! -- (名無しさん) 2017-12-01 12 09 33 天上天下唯我独尊が追い上げとるwwwwwwww -- (名無しさん) 2017-12-01 20 21 08 わからなたあが無い -- (名無しさん) 2017-12-03 14 28 58 ↑乳首感じるんでしたよね? -- (名無しさん) 2017-12-03 21 31 06 カツ丼のバババババはさすがにないか -- (名無しさん) 2017-12-07 00 32 10 やっぱりなんまめがナンバーワン! -- (名無しさん) 2017-12-07 21 28 17 AIを育てるバイトも追加してくださいオナシャス! -- (名無しさん) 2017-12-08 09 55 47 ミ(・)(・)「ゴン!!!」 -- (名無しさん) 2017-12-08 12 21 39 AI追加しました -- (編集) 2017-12-08 13 20 45 ところで集計はいつ? -- (名無しさん) 2017-12-08 15 01 45 書いてあったわ… -- (名無しさん) 2017-12-08 15 09 04 次やる時は先にページだけつくってコメント欄で何をノミネートするか意見出してった方がええかもしれへんね -- (名無しさん) 2017-12-08 17 36 47 ↑せやなあ -- (編集) 2017-12-08 20 07 18 不正投票やめてクレメンス…… -- (名無しさん) 2017-12-10 19 54 31 伸びる候補にはそれだけの理由があるんやで -- (名無しさん) 2017-12-13 13 27 30 ミ(・)(・) -- (名無しさん) 2017-12-15 17 47 20 原口なんだよなあ -- (名無しさん) 2017-12-16 23 24 38 なんまめさん、すこだ□ -- (名無しさん) 2017-12-17 18 25 14 ちうごくとなんまめのライバル感すこ -- (名無しさん) 2017-12-17 20 46 11 初の300wwwww -- (名無しさん) 2017-12-20 20 20 25 天上天下唯我独尊天上天下唯我独尊天上天下唯我独尊・・・ んほほほほほほほほーーーー!!! 尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師!尊師! -- (名無しさん) 2017-12-22 03 40 37 今年は何位まで紹介するんか? -- (名無しさん) 2017-12-22 20 13 45 ベスト10くらいは紹介してほしいンゴ -- (名無しさん) 2017-12-22 23 16 02 天上天下唯我独尊の票数334www -- (名無しさん) 2017-12-24 08 27 08 なんでや! -- (名無しさん) 2017-12-24 17 25 10 あと数日で締め切りやけど、ボーナスタイムみたいな感じで投票時間短くしてもええか? -- (編集) 2017-12-25 07 49 49 何時間にするん? -- (名無しさん) 2017-12-25 16 14 37 ↑1時間くらい -- (編集) 2017-12-25 17 35 04 今のままでええよ -- (名無しさん) 2017-12-25 20 08 36 じゃあしない -- (編集) 2017-12-26 00 21 20 して -- (名無しさん) 2017-12-26 04 25 51 繝。繝ウ繝√さ繝斐?蜈・繧後※笶、? -- (名無しさん) 2017-12-26 16 53 06 文字化けしてもうた メンチコピペ入れて -- (名無しさん) 2017-12-26 16 53 26 http //hayabusa.open2ch.net/test/read.cgi/livejupiter/1511536637/ 動向を見守るスレあるな -- (名無しさん) 2017-12-26 22 02 34 24時間に1回投票でもええよ -- (名無しさん) 2017-12-27 23 00 19 「ID変更...」って知らんかったけど見て草生えた -- (名無しさん) 2017-12-28 13 32 01 だんだん差縮まってるな -- (名無しさん) 2017-12-28 17 58 35 ID変わる前に一暴れしたろ!w は定期化しとるし記事作って欲しいンゴ -- (名無しさん) 2017-12-29 00 08 27 解説まじめで草 -- (名無しさん) 2018-01-01 00 41 06 新年から草生える -- (名無しさん) 2018-01-01 09 50 46 ID変わる前にひと暴れしたろさぁ…なぜあと一票多くしないんだい? -- (名無しさん) 2018-01-02 10 54 24 これがおんj去年最後のスレ http //hayabusa.open2ch.net/test/read.cgi/livejupiter/1514732399/ -- (名無しさん) 2018-01-07 21 09 18 今年はどんなのがノミネートされるんや?そろそろ候補を出してクレメンス -- (名無しさん) 2018-09-10 14 20 08 ↑ まとめたけど 不作すぎて企画にならなそう -- (名無しさん) 2018-09-11 22 23 44 ↑サンガツ -- (名無しさん) 2018-09-18 17 44 03
https://w.atwiki.jp/g-tripper1/pages/15.html
この項目では、音楽バンド (G-tripper) について説明しています。 自動車については「デ・ブーチー・ナンダッケ」をご覧ください。 G-TRIPPER 基本情報 出身地 アメリカ・テキサス州・ダラス ジャンル 宗教音楽 メタル エレクトロ へヴィロック 読経 活動期間 1972年~現在 レーベル Metal Magic、Atco Records、EastWest Records、Elektra Records メンバー ゴキ2号 ファッキンローラー及川 6t 夢をなくしたドリームひげらー 時空超越能力MATCH その他、多数のメンバー 旧メンバー ドニー・ハート テリー・グレイズ デヴィッド・ピーコック トミー・ブラッドフォード G-トリッパーは、1972年にアメリカ合衆国テキサス州ダラスでと(gu)の兄弟によって結成されたラウドロックバンドである。Gロックの先駆け的存在である。1982年にレックス・ブラウン(Ba)が、1987年にフィル・アンセルモ(Vo)が加入し彼らが最も商業的に成功した時期のラインナップが出来上がる。これはギタリストMATCHの突然の死(サドンデス)まで続く。 目次 [非表示] 1 唯一神ゴバーン 2 音の特徴 3 バイオグラフィ 3.1 活動初期 3.2 活動中期 4 メンバー 4.1 元メンバー 5 ディスコグラフィ 5.1 オリジナル・アルバム 5.2 ベストアルバム 5.3 ライブ盤その他 5.4 ビデオ(VHS/DVD) 6 メンバーの逮捕 メンバー match 彼の眉間に音楽を集めて頭の後ろに持って行くギター奏法は その後のギタリストに多大影響をもたらし多くのフォロワーを生んだ ファキンローラー ヒゲラー G-TRIPPERのGはゲンキのGともガンジャのGとも言われているがグーカンサキのGであろうということが近年有力な説となっている。 1978年、中心人物であるゴキ2号とファッキン及川で全身となるバンド、ファッキンポが結成される。そのわけは運動会で流れた移民の歌でとも昼休みのトイレで流したACDCとも言われているが二人とも記憶は飛んでいるので今となっては定かではない。初期衝動溢れるパンクスタイルで一世を風靡するもスタジオの予約問題で年上のガールズバンドと衝突、ファッキン及川はその場で前転。ギタリストのゴキ2号はギターすらも持って居なかったことが発覚してしまう。 その後、薬物問題とメンバー間での音楽性の不一致、たび重なる逮捕などにより 一時期解散状態に追い込まれるも、前衛的な6tや飛びぬけて作曲の出来るひげらーなどとの出会いにより、さまざまなスタイルの音楽を統合する現在のスタイルとして復活を遂げる。そしてこの頃より音楽にとらわれない表現手段を用いた包括的なアート集団としてG-TRIPPERの名前を使うようになる。 中心人物のひとりであるひげらーがいつものようにジキ二ンを摂取していたところ 「豆腐がジャミロクワイで俺のちん毛はスチールウールだ」っといった啓示を受ける神秘体験をする。そのとき京都まで舞妓さんを見に行っていたギタリストのマッチは時空を超越したラーメン小路に迷いこんでいた。以降G-トリッパーのテーマは宇宙とコネクトした壮大なものになった。 そしてときを同じくして千葉県で平成のジョンレノンが目覚めたのだった。
https://w.atwiki.jp/aniwotawiki/pages/25246.html
登録日:2011/11/04 Fri 22 10 14 更新日:2023/01/20 Fri 22 04 59 所要時間:約 4 分で読めます ▽タグ一覧 FSS みんなのアイドル アニメ未登場 インターセプト カードファイト!!ヴァンガード シャドウパラディン ヒューマン ミニスカ ヴァンガード ヴァンガードユニット 指揮官 ←ただし殴るのは自分 最近は暴落 漆黒の乙女マーハ 生足 絶対領域 虚影神蝕 剣を抜け! 高く掲げよ! 全軍っ……突撃! 漆黒の乙女マーハ グレード:2 スキル:インターセプト パワー:8000 自:[CB(2)]このユニットがVかRに登場した時、 《シャドウバラディン》のヴァンガードがいるなら、コストを払ってよい。払ったら、あなたの山札からグレード1以下の《シャドウパラディン》を1枚まで探し、このユニットと同じ縦列のRにコールし、その山札をシャッフルする。 カードファイト!!ヴァンガードのカードの一枚。 レアリティはRRR及びSP。虚影神蝕に登場した新クランシャドウパラディン所属。 シャドウパラディンのG1以下であればコールできる能力を持ったユニット。パワー、コスト、可愛さ共にハイドックブリーダーアカネと似たものがあるが、あちらはハイドックでRならどこにでも呼べるに対し、こちらはG1以下を自身と同じ縦列にしか呼べないので呼ぶ時は注意しよう。(ちなみにV裏に置く等して自身がいる場所にコールする、といった芸当も可能) 基本的に効果で呼ばれるのはカロンキュンこと黒の賢者カロン。彼と力をあわせて16000ラインで殴るといいだろう。そんなこんなで「マーハはカロンの嫁」みたいなことを言われることも少なくなかったり。 シャドウパラディンにはファントム・ブラスター・ドラゴン(以後PBD)がいるのでPBDの能力発動コストの手助けにもなる。 もちろん、PBDサーチスキルを持つブラスタージャベリン。 手札からソウルに送ることが出来るナイトメア・ペインター。 これらを呼び出す事も、戦略の一つに数えられる。(手札にG3シャドウパラディンやブラスター・ダーク、PBDがいる事が条件だが) シャドウパラディンのデッキを組む際には是非ともいれたい一枚である。 さて 前置きは置いといて本題に入ろう。 彼女の魅力はなんといってもそのイラストの可愛いさ。 凛々しい顔立ちにツンとした金の瞳、戦場の風に揺れる淡い水色のツインテール。厳つい鋼の鎧を纏うも絶対領域(ココ重要)、ミニスカートと素晴らしい生太もも(さらに重要)が対比され素晴らしく映える。 また、カードではテキストが邪魔で見えないのだが、靴下が太ももに食い込み、素晴らしい曲線(果てしなく重要)が描かれており、美しさに拍車をかけている。 まぁティオ・プラトーをイメージすれば、割とあっている つまり 「マーハちゃんを甘えさせてあげたいでーーす!」 「マーハちゃんを甘えさせてあげたいでーーす!!」 もちろん大事な事なので2回言いました。 デッキ、アニメ共に是非とも活躍して欲しいカードである。 黒の賢者「現実を見なよ」 しかし 現在価格高騰中で、先述の通りRRRあることに加え、シャドウパラディン自体が人気クランであるが為、同じRRRの髑髏の魔女ネヴァンと共にいろんな意味で双璧をなすレアカードとなっていた・・ CBの関係上やファントム・ブラスター・オーバーロードの登場により切り札を早く引き当てる為にドローの優位性が上がってきた為レートでは一歩引けをとる。 最近では、シャドウパラディンの相対的な弱体化などで地方によるが300以下で買える事も多い。 また、後に「タルトゥ」という後輩ユニットが登場。 タルトゥは「撃退者」以外を呼べないが、パワーがマーハより高い。 マーハに憧れている設定から百合なイメージをするファイターも少なくないんだとか。 ◆アニメでの活躍 マーハ「あの…私の出番……」 偉い人「その内ね」 マーハ「…あのもう最終回……」 偉い人「その内」 マーハ「…………」 黒の賢者「現実を見(゚ε(〇三( △ ,`) ◆ユニット設定 一個大隊を自らの手足の如く操るシャドウパラディンの天才指揮官。 聖騎士団所属時のとある戦において、大勝を得るために意図的に数多の犠牲者を出し、離反するその日まで謹慎処分を受けていた。 任務遂行のためなら仲間や部下をも犠牲にする冷徹さを持ち、「勝者こそ正義」という信念の下に行動する。 初期シャドウパラディンに多い、元ロイヤルパラディン。 余談だが、忍者マスターM役の阿部敦氏も気に入っているらしく、関係者から三枚貰ったそうな。なんて羨ましいんだ 今こそ、追記修正する時! 全軍、突撃せよっ! △メニュー 項目変更 この項目が面白かったなら……\ポチッと/ -アニヲタWiki- ▷ コメント欄 [部分編集] シャドパラのアイドルマーハたん -- 名無しさん (2013-12-12 15 24 51) マーハ×カロンはいいと思う -- 名無しさん (2014-01-14 22 20 49) ↑同志がいたか!! -- 名無しさん (2014-04-29 19 49 37) 魔女名称になって復活しないかなマーハちゃん。 -- 名無し (2014-05-28 22 32 50) 漆黒の宝石騎士でも漆黒の撃退者でも何でもいいから出て欲しい -- 名無しさん (2014-09-19 03 53 01) 4月発売のレジェンドデッキに新しいマーハちゃんが登場!やったね同志! -- 名無しさん (2015-03-01 05 29 02) 乙女と言うことは…ゴクリ… -- 名無しさん (2015-06-24 06 30 13) 縺翫◎縺ー縺帙↑縺後i縲√▽縺?↓繧「繝九Γ縺ォ蜃コ縺セ縺励◆縺ュ窶シ? -- 名無し (2015-07-21 09 33 42) マーハちゃんは休日は部屋で下着姿でベッドに寝転がりながらポテチを食べつつ、雑誌を読むという過ごし方をしているに違いない -- 名無しさん (2015-10-20 16 21 55) 名前 コメント
https://w.atwiki.jp/cyber_pp-tag/pages/27.html
はじめてのPP 本スレで声掛けを始めてから数時間後、一人の男が現れる。 サイバーナビ本スレで邪魔者扱いされ、しょうがなく実況スレ 【Cyber】PP鬼ごっこ実況スレ【carrozzeria】 http //live24.2ch.net/test/read.cgi/livesaturn/1171113224/l50(閲覧要●) を立てた(´・ω・`) 5 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 22 16 46.72 ID Pijl4cSW で、まずは俺が鬼になる。 ニックネーム:Fair33orz パスワード:cyber2ch スタート:23 00 参加者待つ! 6 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 34 52.65 ID FF3lVk9q で、このニックネームってユーザー情報に登録されているニックネームなのね。 7 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 36 36.39 ID Pijl4cSW 6 うん。そう。 8 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 38 07.01 ID FF3lVk9q それじゃそっちからこっちに入れる? ニックネーム:**********(編集済) パス:4649 9 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 38 30.32 ID Pijl4cSW 一応、現在の情報をもう一度。 ニックネーム:*A*A*O (編集済) パスワード:282282 10 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 38 50.54 ID FF3lVk9q ソッチ行くわ 11 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 39 45.68 ID Pijl4cSW 10 あ、ゴメ。リロードせんかったorz お待ちしてます。 そしてついに記念すべきPP初接続の瞬間が! 12 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 40 40.50 ID FF3lVk9q キタ━━━━━━(゚∀゚)━━━━━━!! 13 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 42 30.38 ID FF3lVk9q てことは今からよーいドンで走って豊川辺りか 14 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 43 03.02 ID Pijl4cSW 12 あれ?俺の方では表示できてないorz 次の更新でくるか? 15 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 44 24.73 ID Pijl4cSW 12 静岡県のどこにいるか答えられます? 16 名前: 282 ◆6dqghQVs6A 投稿日: 2007/02/10(土) 23 45 16.26 ID Pijl4cSW キタ━(゚∀゚)━(∀゚ )━(゚ )━( )━( )━( ゚)━( ゚∀)━(゚∀゚)━ !! 17 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 45 37.54 ID FF3lVk9q 袋井の1号線の近くでしょう 18 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 46 49.80 ID Pijl4cSW 17 うん、そう。あなたは某企業城下町ですなw どうでしょう? せっかくだから鬼ごっこ無しで今から会いませんか? 19 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 49 05.36 ID FF3lVk9q うはっ、愛のお誘いktkr 20 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 51 33.89 ID FF3lVk9q したらば、浜名湖SAぐらいかね? 21 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 51 36.30 ID Pijl4cSW 19 うはwww俺誘ってるwwwwっうぇうぇww 暇だったFairloadはとりあえず走り出してみたw 22 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 52 08.68 ID Pijl4cSW 一号線を走ってみる。 23 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/10(土) 23 54 17.24 ID FF3lVk9q ラジャ。では漏れも逝ってみる。 ノシ 24 名前: 282 ◆6dqghQVs6A [sage] 投稿日: 2007/02/10(土) 23 55 26.04 ID Pijl4cSW て、リビングキットOFFにして大丈夫なんかいな? ちょいとやってみる。 もしだめだったら、5分後にこのスレで報告します。 25 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/11(日) 00 03 48.21 ID +G8fiQuc それでは移動開始します。 26 名前: ◆6dqghQVs6A 投稿日: 2007/02/11(日) 00 46 04.79 ID XM4/bfU5 今豊橋に入りました。 27 名前: 名無しさん@お腹いっぱい。 [sage] 投稿日: 2007/02/11(日) 00 54 43.18 ID 3VJ9a3K1 見るだけ参加はダメ? 28 名前: ◆6dqghQVs6A 投稿日: 2007/02/11(日) 01 13 33.30 ID XM4/bfU5 やべwすれ違ったっぽいw ↑のレスと↓のレスの時間差に注目。お互いに「待つ」ということをしなかった為、とにかく擦れ違いまくりw 結局R1沿いのサークルKでようやくご対面となりました。 29 名前: 名無しさん@お腹いっぱい。 投稿日: 2007/02/11(日) 02 17 41.36 ID XM4/bfU5 捕獲されますたw
https://w.atwiki.jp/onmyoutetu-jinro/pages/334.html
(最終更新 ver.1.4.0β14) 説明 通常の「PP」人狼陣営によるPP 恋人陣営によるPP 蝙蝠陣営によるPP 妖狐陣営によるPP ネタ「PP」 説明 通常の「PP」 PPとはPower Play(パワープレイ)の略称です。 村人陣営以外の特定陣営による投票合計数が他陣営の投票合計数を上回り、処刑投票対象を操作することを意味します。 【古狼】【古狐】【古蝙蝠】などの役職が必要条件に影響します。 人狼陣営によるPP 人狼系と狂人系の投票合計数が他陣営の投票合計数を上回った場合に可能です。 また、「従わなければ噛む」という脅しをかけることで、蝙蝠陣営を引き込む場合もあります。 この場合、人狼系の生存者数が蝙蝠陣営の生存者数以上である必要があります。 恋人陣営によるPP 恋人陣営(キューピッド系+天使系)とサブ役職【恋人】の投票合計数が他陣営の投票合計数を上回り、 【恋人】ではないLWが判明している時、もしくは残る人狼系が全員【恋人】の時などに可能な場合があります。 蝙蝠陣営によるPP 正体が判明しているLW(人狼系1名)、蝙蝠陣営2名以上という状態の場合に可能です。 事例 裏世界鯖2丁目245番地 妖狐陣営によるPP 滅多にありません。上記の「蝙蝠陣営によるPP」における状態で妖狐陣営がいる場合に可能です。 事例 裏世界鯖2丁目373番地 裏世界鯖3丁目165番地、裏世界鯖3丁目303番地 ネタ「PP」 陣営に関係なく、アイコンや名前に特定の共通項を持つ生存者の投票合計数が他全員の投票合計数を上回ったときに可能です。 基本的に、ノリで処刑先を決める決闘村やネタ村にて行われます。
https://w.atwiki.jp/ssf4/pages/1764.html
プレイヤーポイント(PPとは) PPとは、「プレイヤーの実力を勝率などからある程度数値化したもの」である。 基本的には、これが高い人ほど強いと考えていい。 (ただし対戦数が多い人は、PPが少なくても強いことがある) また、PPはあくまで実力の目安であって、「PPが○○以上だから上級者」ということはない。 PS3、XBOX360ではネット対戦環境が違うため、「PS3で○○以上だったからXBOX360でも同じぐらいのPPぐらいに行けるかと言えば、そういうわけにはならない」と言える。 つまり、ハードウェアを超えた数値互換性はない。 ランキング見ると6試合でPP7000とかいるんだけど一試合で得られる最大PPっていくらなんだろう(PS3版) -- (名無しさん) 2014-09-25 23 03 43 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/pepperwiki/
※最新情報はページ下部に記載していきます。 Pepperとは・・・ ●2014年6月5日13時よりソフトバンク社長である孫正義によって発表。 pepper(発音はペッパー)は感情認識ヒューマノイドロボット。フランス のアルデバランロボティクスと同社に出資するソフトバンク傘下のソフトバンクモバイルにより共同開発された。製造は鴻海精密工業が行う。 ●販売価格は19万8000円(税抜)の予定。アプリ購入や月額通信料、クラウド利用料がかかるか?? ●特徴としては、「感情エンジン」と「クラウドAI」を搭載した世界初の感情認識パーソナルロボットである。従来の産業用ではなく、一家に1台 という家庭向けロボットである。クラウドAIを備えており、エンドユーザの情報をあつめ、BigData解析を実施。日々刻々と進化を続けるため、 より高度なコミュニケーションが可能となる。福祉産業や広告産業など多くの利用が期待される。 ●2014年9月20日 Pepper Tech Festival 2014 @ベルサール渋谷ガーデンにてPepperのテクノロジーや開発環境の詳細が公開される。 詳細は下記。 Pepper Tech Festival 2014 エントリー事務局 E-mail:ptf2014@seminar.jp ※対応時間 10:00~17:00(12:00~13:00、土日祝日除く) 〒160-0022 東京都新宿区新宿6-27-56 新宿スクエア5F (株式会社エムエム総研内) http //www.pepper-techfes.jp/ ●2014年6月6日より一部のソフトバンクモバイル販売店に設置されている。 ●2014年度中にSDKを配布。開発環境はどんなユーザーでも開発できるものとして配布する予定。シンプルなGUIが特徴なので、 プログラミング言語の知識がなくても、ドラッグ ドロップするだけで、簡単に動きや会話を創ることが可能。 プログラミング経験者であればPython、C++など一般的な開発言語に対応しているため、Pepperのハードとソフトをフルに活用した ハイレベルな操作・開発も可能です ●2014年夏にアルデバラン・アトリエ秋葉原をオープン予定。 ●2014年度中にコミュニティサイトオープン予定。 ●OSは「NAOQi(ナオキ) OS」を採用し、Naoとはプラットフォームの互換性がある。Naoのニ足歩行機能は連続稼働12時間以上を確保するため 見送られた。 ●Naoは2006年に誕生。アルデバランロボティクス社製の小型ロボット。pepperがコミュニケーションを重視することに対して、 プログラミングを利用し、緻密な行動の作成、センサーによる取得データへのアクセス、ロボットのコントロールをすることができる。 【最新情報】 2014年8月1日 ソフトバンクグループはロボット開発を加速させる目的で、ロボット事業専門の新会社ソフトバンクロボティクスを設立した。 2014年6月5日 pepperを発表。 http //www.softbank.jp/corp/group/sbm/news/press/2014/20140605_01/ 2014年8月8日 ソフトバンク四半期決算で孫正義社長pepperに言及。 http //news.mynavi.jp/news/2014/08/08/465/
https://w.atwiki.jp/pmrb/pages/14.html
PP(パックマンポイント)を貯める PP周りの仕様が大きく変更され、貯めにくくなりました。 (例) モンスター投下はPPを消費するようになった 以下はβテスト時 ※βテスト中は20000PPが上限の模様 配合(自分/他人) 50PP モンスター退治(自分/他人) 50PP タイミングよく自分のファームにモンスターがいる事は少ないので、他人のファームをまわり退治するのがよい。 モンスター投下(他人) 15PP 1日10回まで(4時頃リセット)。 運動(他人) 15PP 1日10回まで(3時頃リセット)。
https://w.atwiki.jp/ce00582/pages/690.html
Function seekc(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.01) / th(s) If ls 0.01 Then ls = 0.01 ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekc = th(s) * ls - bp End Function Function seekl(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.01) / th(s) If ls 0.01 Then ls = 0.01 ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekl = ls End Function Function checknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 checknowork = u1 End Function Function stopv(s As Single, m As Single, n As Single, nowork, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = m n1 = n If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (nowork(s, m3, n2) - nowork(s, m2, n2)) dn = (n1 - n2) * (nowork(s, m2, n3) - nowork(s, m2, n2)) If nowork(s, m2, n2) -900 Then pp = 1 If nowork(s, m3, n2) -900 Then pp = 1 If nowork(s, m2, n3) -900 Then pp = 1 nv = nowork(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 v1 = nearv(s, m, n, v) x = 0 If nv v1 Then x = 1 If nv = v1 Then x = 1 stopv = x End Function Function gotow(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop uxs = nru(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h gotow = mxs End Function Function gotob(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop gotob = n - bxs End Function Function nru(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n m1 = m If m1 -5 Then pp = 1 If m1 -5 Then m1 = -5 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m2, n3) - u(s, m2, n2)) dm = (m1 - m2) * (u(s, m3, n2) - u(s, m2, n2)) If u(s, m2, n2) -900 Then pp = 1 If u(s, m2, n3) -900 Then pp = 1 If u(s, m3, n2) -900 Then pp = 1 nu = u(s, m, n2) + dn + dm If pp = 1 Then nu = -999 nru = nu End Function Function seekstartu(th, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = 0.5 ys = th(100) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h c1 = th(100) * l1 - bp u1 = Log(c1) + Log(1 - l1) l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(100) * l2 - bp u2 = Log(c2) + Log(1 - l2) If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekstartu = us End Function Function seeknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 seeknowork = u1 End Function Function seekv(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nearu(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nearu(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nearu(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop seekv = vxs End Function Function nearu(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m, n3) - u(s, m, n2)) If u(s, m, n2) -900 Then pp = 1 If u(s, m, n3) -900 Then pp = 1 nu = u(s, m, n2) + dn If pp = 1 Then nu = -999 nearu = nu End Function Function nearv(s As Single, mx As Single, nx As Single, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = mx n1 = nx If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(s, m3, n2) - v(s, m2, n2)) dn = (n1 - n2) * (v(s, m2, n3) - v(s, m2, n2)) If v(s, m2, n2) -900 Then pp = 1 If v(s, m3, n2) -900 Then pp = 1 If v(s, m2, n3) -900 Then pp = 1 nv = v(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 nearv = nv End Function Function seeku(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.01) / th(s) If ls 0.01 Then ls = 0.01 ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seeku = us End Function Function seekw(wp As Single) As Single Dim x1 As Single Dim x2 As Single Dim x3 As Single Dim w1 As Single Dim w2 As Single Dim t As Single Dim pp As Single pp = 0 If wp 2 * Log(0.1) Then pp = 1 If wp 2 * Log(1) Then pp = 1 x1 = 0.3 x2 = 0.7 t = 0 If pp = 1 Then t = 1000 Do Until t 100 w1 = 2 * Log(x1) w2 = 2 * Log(x2) x3 = x2 + (wp - w2) * (x2 - x1) / (w2 - w1) x1 = x2 x2 = x3 If (wp - w2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop If pp = 1 Then x2 = -999 seekw = x2 End Function Function lx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 lx = ls End Function Function cx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 cx = (1 - tl) * th(s) * ls + tr End Function Function tls(th) As Single Dim maxw As Single Dim tl As Single Dim tr As Single Dim tp As Single Dim w1 As Single Dim n As Single maxw = -999 For n = 1 To 400 tl = 0.001 * n tr = trs(th, tl) w1 = wel(th, tl, tr) If w1 maxw Then tp = tl If w1 maxw Then maxw = w1 Next tls = tp End Function Function trs(th, tl As Single) As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim t As Single tr1 = 0 tr2 = 0.1 t = 0 Do Until t 100 b1 = bud(th, tl, tr1) b2 = bud(th, tl, tr2) tr3 = tr2 - b2 * (tr2 - tr1) / (b2 - b1) tr1 = tr2 tr2 = tr3 If (tr1 - tr2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr2 End Function Function wel(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single w1 = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 cs = cx(s, th, tl, tr) w1 = w1 + Log(cs) + Log(1 - ls) Next wel = w1 End Function Function bud(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single Dim ys As Single ys = 0 cs = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 ys = ys + th(s) * ls cs = cs + cx(s, th, tl, tr) Next bud = ys - cs End Function Private Sub Command1_Click() Dim th(1 To 100) As Single Dim s As Single Dim m As Single Dim n As Single Dim tl As Single Dim tr As Single Dim bs(1 To 100) As Single Dim ws(1 To 99) As Single Dim startu(-50 To 50) As Single Dim u(1 To 99, -5 To 5, -5 To 5) As Single Dim v(1 To 99, -5 To 5, -25 To 25) As Single Dim nowork(1 To 99, -5 To 5, -25 To 25) As Single Dim w1 As Single Dim wp As Single Dim bp As Single Dim h As Single Dim bb As Single Dim s1 As Single For s = 1 To 100 th(s) = 0.02 * s Next tl = tls(th) tr = trs(th, tl) Debug.Print tl, tr For s = 1 To 100 bs(s) = th(s) * lx(s, th, tl, tr) - cx(s, th, tl, tr) Next For s = 1 To 99 w1 = Log(cx(s, th, tl, tr)) + Log(1 - th(s) * lx(s, th, tl, tr) / th(s + 1)) ws(s) = seekw(w1) Next h = 10 ^ (-2) For s = 1 To 99 For m = -5 To 5 For n = -5 To 5 wp = 2 * Log(ws(s) + h * m) bp = bs(s) + h * n u(s, m, n) = seeku(s, th, wp, bp) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 nowork(s, m, n) = seeknowork(s, m, n, h, ws, bs) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = -999 Next Next Next s = 1 For m = -5 To 5 For n = -5 To 5 v(s, m, n) = u(s, m, n) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next For s = 2 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = seekv(s, m, n, h, ws, u, v) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next Debug.Print s, v(s, 0, 0) Next For n = -50 To 50 bp = bs(100) + 0.1 * n * h startu(n) = seekstartu(th, bp) Next Dim u1 As Single Dim opb(1 To 99) As Single Dim opw(1 To 99) As Single vs = -999 For n = -50 To 50 u1 = startu(n) m1 = (seekw(u1) - ws(99)) / h m2 = Int(m1) If m2 5 Then m2 = 5 m3 = m2 + 1 If m3 = 6 Then m3 = 5 n1 = 0.1 * n n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(99, m3, -n2) - v(99, m2, -n2)) dn = (n1 - n2) * (v(99, m2, -n3) - v(99, m2, -n2)) v1 = startu(n) + v(99, m2, -n2) + dm + dn If v1 vs Then ms = m1 If v1 vs Then ns = n1 If v1 vs Then vs = v1 Next Dim stoppoint As Single Dim upw(1 To 99) As Single Dim upb(1 To 99) As Single opw(99) = ms opb(99) = -ns s = 99 Do Until s 10 s = s - 1 opb(s) = gotob(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) opw(s) = gotow(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) If stopv(s, opw(s), opb(s), nowork, v) = 0 Then stoppoint = s If stopv(s, opw(s), opb(s), nowork, v) 0 Then s = -10 Loop s = stoppoint Debug.Print startpoint For s = stoppoint + 1 To 99 upb(s) = bs(s) + h * (opb(s) - opb(s - 1)) upw(s) = 2 * Log(ws(s) + h * opw(s)) Debug.Print s, seekc(s, th, upw(s), upb(s)), th(s) * seekl(s, th, upw(s), upb(s)) Next End Sub